<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include Virtual="/expedientes/includes_comun/asp/comun.asp"-->
<!--#Include File="includes/asp/comun.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Sistemas OnLine</title>
<link href="/expedientes/includes_comun/css/general.css" rel="stylesheet" type="text/css" />
<link href="/expedientes/includes_comun/css/usuarios.css" rel="stylesheet" type="text/css" />
<link href="includes/css/sistema.css" rel="stylesheet" type="text/css" />
<script src="includes/js/botones.js" language="javascript" type="text/javascript"></script>
</head>

<body>
<div align="center" class="general-central">

	<!--#Include Virtual="/expedientes/includes_comun/areas/usuarios.asp"-->

<%
Dim Usuario
Usuario = Request.QueryString("usuario")
Conectar_sol
%>
	
	<!--#Include File="includes/areas/cabecera.asp"-->
	
	<div class="general-contenido">
		<span class="titulo">Registro de ingresos para: <i><%= UCase(Usuario) %></i></span><br /><br />
		<table width="512" cellpadding="4" cellspacing="1">
		  <tr bgcolor="#D7D7C8">
		  	<td width="178"><span class="general-negritas">Fecha/Hora</span></td>
			<td width="149"><span class="general-negritas">IP</span></td>
		  </tr>
<%
SQL = "SELECT * FROM Ingresos WHERE Usuario LIKE '" & Usuario & "' ORDER BY Fecha DESC"
Set Tabla = Conexion.Execute(SQL)
Do While Not Tabla.EOF
%>
		  <tr bgcolor="#FFFFFF">
		  	<td><%= Tabla("Fecha") %></td>
			<td><%= Tabla("IP") %></td>
		  </tr>	
<%
	Tabla.MoveNext
Loop
Tabla.Close
%>		 
	  </table>
	</div>
</div>
</body>
</html>
<%
Desconectar
%>